home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / compile_to_c42.c < prev    next >
C/C++ Source or Header  |  1998-01-16  |  3KB  |  81 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9. void r620runnable_from_current(T620* C,T0* a1,T0* a2){
  10. T0* _n2=NULL;
  11. T0* _n1=NULL;
  12. int _i=0;
  13. C->_start_position=(((T620*)((T620*)a1)))->_start_position/*4*/;
  14. C->_list=(((T620*)((T620*)a1)))->_list/*8*/;
  15. C->_current_type=a2;
  16. C->_flat_list=r733twin(((T733*)((((T620*)((T620*)a1)))->_flat_list/*12*/)));
  17. _i=(((T733*)((T733*)((((T620*)C))->_flat_list/*12*/))))->_upper/*12*/;
  18. while (!((_i)==(0))) {
  19. _n1=r733item(((T733*)((((T620*)C))->_flat_list/*12*/)),_i);
  20. _n2=r39to_runnable(((T39*)_n1),a2);
  21. /*IF*/if ((_n2)==((void*)(NULL))) {
  22. r620error((((T39*)((T39*)_n1)))->_start_position/*16*/,((T0*)ms3_535));
  23. }
  24. /*FI*//*[IRF3.6put*/{T733* C1=((T733*)((((T620*)C))->_flat_list/*12*/));
  25. T0* b1=_n2;
  26. int b2=_i;
  27. ((((T733*)C1))->_storage/*4*/)[(b2)-((((T733*)C1))->_lower/*16*/)]=(b1);
  28. }/*]*/
  29. _i=(_i)-(1);
  30. }
  31. }
  32. void r620initialize_expanded(T620* C){
  33. T0* _rf3=NULL;
  34. T0* _t=NULL;
  35. int _i=0;
  36. _i=/*(IRF4.6count*/(((T733*)((T733*)((((T620*)C))->_flat_list/*12*/))))->_upper/*12*//*)*/;
  37. while (!((_i)==(0))) {
  38. _t=X291run_type(r620type(C,_i));
  39. /*IF*/if (X291is_expanded(_t)) {
  40. /*IF*/if (!(X291is_basic_eiffel_expanded(_t))) {
  41. _rf3=X291expanded_initializer(_t);
  42. /*IF*/if ((_rf3)!=((void*)(NULL))) {
  43. r324expanded_writable(((T324*)(oBC364cpp)),_rf3,/*(IRF4.6name*/r733item(((T733*)((((T620*)C))->_flat_list/*12*/)),_i)/*)*/);
  44. }
  45. /*FI*/}
  46. /*FI*/}
  47. /*FI*/_i=(_i)-(1);
  48. }
  49. }
  50. void r620add_last(T620* C,T0* a1){
  51. T0* _n2=NULL;
  52. int _i=0;
  53. _i=1;
  54. while (!((r733item(((T733*)((((T620*)C))->_flat_list/*12*/)),_i))==((void*)(NULL)))) {
  55. _n2=r733item(((T733*)((((T620*)C))->_flat_list/*12*/)),_i);
  56. /*IF*/if (((((T39*)((T39*)_n2)))->_to_string/*12*/)==((void*)((((T39*)((T39*)a1)))->_to_string/*12*/))) {
  57. r683add_position((((T39*)((T39*)a1)))->_start_position/*16*/);
  58. r683add_position((((T39*)((T39*)_n2)))->_start_position/*16*/);
  59. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_535);
  60. r683fatal_error(((T683*)(oBC364eh)),b1);
  61. }/*]*/
  62. }
  63. /*FI*/_i=(_i)+(1);
  64. }
  65. /*[IRF3.6put*/{T733* C1=((T733*)((((T620*)C))->_flat_list/*12*/));
  66. T0* b1=a1;
  67. int b2=_i;
  68. ((((T733*)C1))->_storage/*4*/)[(b2)-((((T733*)C1))->_lower/*16*/)]=(b1);
  69. }/*]*/
  70. /*[IRF3.3set_rank*/((((T39*)(((T39*)a1))))->_rank)=(_i);
  71. /*]*/
  72. }
  73. void r620error(T0* a1,T0* a2){
  74. r683add_position(a1);
  75. r683error(((T683*)(oBC364eh)),a2);
  76. }
  77. /*No:LOCAL_VAR_LIST.count*/
  78. /*No:LOCAL_VAR_LIST.fatal_error*/
  79. /*No:LOCAL_VAR_LIST.flat_list*/
  80.  
  81.